home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1999 #2 / Amiga Plus CD - 1999 - No. 2.iso / System-Boost / Emulatoren / CoolNESs / Install < prev    next >
Text File  |  1998-11-08  |  12KB  |  313 lines
  1. ; ·--------------------------------------------------------·
  2. ; |              Install script for CoolNESs               |
  3. ; |                Written by Tomas Amsrud                 |
  4. ; |              CoolNESs is ©Fredrik Olsson               |
  5. ; |   Send Translations to me at: gdwarf@applausenett.no   |
  6. ; `--------------------------------------------------------'
  7. ; $VER: CoolNESs Installer V1.0 (19971011)
  8.  
  9.  
  10. ;***************************************************************************
  11. ;*** Something Default
  12. ;***************************************************************************
  13.  
  14. (set @default-dest "")
  15. (set emunam "CoolNESs")       ; Name of Program to Install
  16. (set emuver "0.67")           ; Emulator Version
  17. (set insver "1.0")            ; Install Script Version
  18. (set emuaut "Fredrik Olsson") ; Emulator Author
  19. (set insaut "Tomas Amsrud")   ; Install Script Maker
  20.  
  21. ;***************************************************************************
  22. ;*** Choose Language
  23. ;***************************************************************************
  24.  
  25. ;*****************
  26. ;**** ENGLISH ****
  27. ;*****************
  28. (set #lowtech (cat "You need at least AGA, a 68020\nand AmigaOS 3.0 to run " emunam " !\n\n"))
  29. (set #about (cat "Welcome to the Installation of " emunam " v" emuver "\n" emunam " is ©" emuaut "\nInstallation script v" insver "\nby " insaut))
  30. (set #where (cat "\nWhere do you want to install " emunam "? (A drawer will be created)"))
  31. (set #whaticon   "\nWhat kind of Icons do you want to install?")
  32. (set #exists (cat "\n" emunam " already exists\nWhat do you want to do?\n"))
  33. (set #installing "Installing ")
  34. (set #filecopy   ". .. ....Copying Files.... .. .")
  35. (set #doccopy    ". .. ....Copying Docs.... .. .")
  36. (set #packicons  ". .. ....Un-Packing Icons.... .. .")
  37. (set #copyicons  ". .. ....Copying Icons.... .. .")
  38. (set #cleanup    ". .. ....Cleaning Up.... .. .")
  39.  
  40. ;*****************
  41. ;**** German  **** 'German' Translation done by Richard Körber
  42. ;*****************
  43. (if (= @language "german")
  44. ((set #about (cat "Willkommen zu der\n\nInstallation von " emunam " V" emuver "\n" emunam " ist ©" emuaut "\n\nInstaller-Skript V" insver "\nvon " insaut "\n\nDeutsche Übersetzung von Richard Körber"))
  45.  (set #where (cat "\nWohin soll " emunam " installiert werden? (Verzeichnis wird angelegt)"))
  46.  (set #whaticon   "\nWelche Piktogramme möchten Sie installieren?")
  47.  (set #installing "Installieren ")
  48.  (set #filecopy   ". .. ....Kopiere Dateien.... .. .")
  49.  (set #doccopy    ". .. ....Kopiere Anleitungen.... .. .")
  50.  (set #packicons  ". .. ....Entpacke Piktogramme.... .. .")
  51.  (set #copyicons  ". .. ....Kopiere Piktogramme.... .. .")
  52.  (set #cleanup    ". .. ....Räume auf.... .. .")
  53. ))
  54.  
  55. ;*****************
  56. ;**** French  **** French translation made by Pascal Willano
  57. ;*****************
  58. (if (= @language "french")
  59. ((set #about (cat "Bienvenu à\n\nl'installation d'" emunam " v" emuver "\n" emunam " est ©" emuaut "\n\nScript d'installation v" insver "\nby " insaut "\n\nTraduit en Français par Pascal WILLANO"))
  60.  (set #where (cat "\nOù voulez vous installer " emunam "? (Un répertoire sera créé)"))
  61.  (set #whaticon   "\nQuel type d'icônes voulez vous installer?")
  62.  (set #installing "Installer ")
  63.  (set #filecopy   ". .. ....Copie des fichiers.... .. .")
  64.  (set #doccopy    ". .. ....Copie de la Documention.... .. .")
  65.  (set #packicons  ". .. ....Decompression des icônes.... .. .")
  66.  (set #copyicons  ". .. ....Copie des icônes.... .. .")
  67.  (set #cleanup    ". .. ....Nétoyage.... .. .")
  68. ))
  69.  
  70. ;*****************
  71. ;**** Italian **** Italian Translation done by Simone Bevilacqua
  72. ;*****************
  73. (if (= @language "italiano")
  74. ((set #about (cat "Benvenuto\n\nal programma di installazione di " emunam " v" emuver "\n" emunam " e' ©" emuaut "\n\nScript di installazione v" insver "\ndi " insaut "\n\nTraduzione Italiana di Simone Bevilacqua"))
  75.  (set #where (cat "\nDove vuoi che " emunam " sia installato? (verra' creata un' apposita directory)"))
  76.  (set #whaticon   "\nChe tipo di icone vuoi installare?")
  77.  (set #installing "Installare ")
  78.  (set #filecopy   ". .. ....Copia files in corso.... .. .")
  79.  (set #doccopy    ". .. ....Copia documentazione in corso.... .. .")
  80.  (set #packicons  ". .. ....Decompressione icone in corso.... .. .")
  81.  (set #copyicons  ". .. ....Copia icone in corso.... .. .")
  82.  (set #cleanup    ". .. ....Eliminazione file temporanei.... .. .")
  83. ))
  84.  
  85. ;*****************
  86. ;**** Español **** By Juan Antonio Gómez
  87. ;*****************
  88. (if (= @language "española")
  89. ((set #about (cat "Bienvenido al\n\nInstalador de " emunam " v" emuver "\n" emunam " es ©" emuaut "\n\nScript de Instalación v" insver " by " insaut "\n\nTraducción Española por Juan Antonio Gómez"))
  90.  (set #where (cat "\n¿Donde quiere instalar " emunam "? (Un directorio será creado)"))
  91.  (set #whaticon   "\n¿Que tipo de iconos quiere instalar?")
  92.  (set #installing "Instalar ")
  93.  (set #filecopy   ". .. ....Copiando Ficheros.... .. .")
  94.  (set #doccopy    ". .. ....Copiando Documentación.... .. .")
  95.  (set #packicons  ". .. ....Descomprimiendo Iconos.... .. .")
  96.  (set #copyicons  ". .. ....Copiando Iconos.... .. .")
  97.  (set #cleanup    ". .. ....Borrando.... .. .")
  98. ))
  99.  
  100. ;*****************
  101. ;**** Sweden  **** By Fredrik Olsson (flubba@hem2.passagen.se).
  102. ;*****************
  103. (if (= @language "svenska")
  104. ((set #about (cat "Välkommen till " emunam " v" emuver " installationsprogram\n" emunam " är ©" emuaut "\nInstallations skript v" insver " av " insaut "\nSvensk översättning gjord av Fredrik Olsson"))
  105.  (set #where (cat "\nVar vill du installera " emunam "? (En katalog kommer att skapas)"))
  106.  (set #whaticon   "\nVilken slags ikoner vill du installera?")
  107.  (set #installing "Installerar ")
  108.  (set #filecopy   ". .. ....Kopierar Filer.... .. .")
  109.  (set #doccopy    ". .. ....Kopierar Dokumentation.... .. .")
  110.  (set #packicons  ". .. ....Packar upp Ikoner.... .. .")
  111.  (set #copyicons  ". .. ....Kopierar Ikoner.... .. .")
  112.  (set #cleanup    ". .. ....Städar Upp.... .. .")
  113. ))
  114.  
  115. ;*****************
  116. ;****  Norsk  **** By Tomas Amsrud (gdwarf@applausenett.no)
  117. ;*****************
  118. (if (= @language "norsk")
  119. ((set #about (cat "Velkommen til Instaleringen av " emunam " v" emuver "\n" emunam " er ©" emuaut "\nInstalasjon script v" insver " av " insaut "\nNorsk oversetting av " insaut))
  120.  (set #where (cat "\nHvor vil du instalere " emunam "? (En katalog vil bli lagd)"))
  121.  (set #whaticon   "\nHva slags iconer vil du Instalere?")
  122.  (set #installing "Installerer ")
  123.  (set #filecopy   ". .. ....Kopierer Filer.... .. .")
  124.  (set #doccopy    ". .. ....Kopierer Dokumentasjon.... .. .")
  125.  (set #packicons  ". .. ....PakkerOpp Iconer.... .. .")
  126.  (set #copyicons  ". .. ....Kopierer Iconer.... .. .")
  127.  (set #cleanup    ". .. ....Rydder Opp.... .. .")
  128. ))
  129.  
  130. ;*****************
  131. ;****  Dutch  **** Dutch Translation done by Roderick Mouthaan.
  132. ;*****************
  133. (if (= @language "dutch")
  134. ((set #about (cat "Welkom bij de\n\nInstallatie van " emunam " v"emuver "\n" emunam " is ©" emuaut "\n\nInstallatie script v" insver "\ndoor " insaut "\n\nNederlandse vertaling door Roderick Mouthaan"))
  135.  (set #where (cat "\nWaar wil je " emunam " installeren? (Een lade zalgecreëerd worden)"))
  136.  (set #whaticon   "\nWelk type icons wil je installeren?")
  137.  (set #installing "Installeren ")
  138.  (set #filecopy   ". .. ....Kopiëren van bestanden.... .. .")
  139.  (set #doccopy    ". .. ....Kopiëren van documentatie.... .. .")
  140.  (set #packicons  ". .. ....Uitpakken van icons.... .. .")
  141.  (set #copyicons  ". .. ....Kopiëren van icons.... .. .")
  142.  (set #cleanup    ". .. ....Opruimen.... .. .")
  143. ))
  144.  
  145. ;*****************
  146. ;****  Suomi  **** Suomi Translation done by ???.
  147. ;*****************
  148. (if (= @language "suomi")
  149. ((set #about (cat "Hyve! " emunam " v"emuver "\n" emunam " is ©" emuaut "\n\nInstallation script v" insver "\nby " insaut "\n\nPlease send a Suomi Translation to me!"))
  150.  (set #installing "Assenan ")
  151. ))
  152.  
  153. ;***************************************************************************
  154. ;*** Install part
  155. ;***************************************************************************
  156.  
  157.  
  158. (complete 0)
  159. ;Check if tere is a 020 or better.
  160. (if (patmatch "68000" (database "cpu"))
  161.   (abort #lowtech))
  162. (if (patmatch "68010" (database "cpu"))
  163.   (abort #lowtech))
  164.  
  165. (complete 1)
  166. ;Check if tere is AGA.
  167. (if (<> (patmatch "AA" (database "chiprev")))
  168.   (abort #lowtech))
  169.  
  170. (complete 2)
  171. ;Check OS version
  172. (set #OS_VER (/ (getversion) 65536) )
  173. (if(< #OS_VER 39)
  174.   (abort #lowtech))
  175.  
  176. (complete 3)
  177. (welcome #about)
  178.  
  179. (complete 10)
  180. (set dester
  181.     (askdir (prompt #where)
  182.         (help @askdir-help)
  183.         (default @default-dest)))
  184. (set nesdest
  185.     (tackon dester "CoolNESs"))
  186. (set @default-dest nesdest)
  187.  
  188.  
  189. (complete 20)
  190.  
  191. (set #icon 0)
  192. (if (<> (getenv "MagicWB") "")
  193.     (set #icon 2))
  194. (if (> (getversion "LIBS:newicon.library") (* 5 65536))
  195.     (set #icon 5))
  196.  
  197. (set ScrOpt
  198.     (askchoice (prompt #whaticon)
  199.         (help @askchoise-help)
  200.         (choices "Normal" "SmalBench" "MagicWB1 - Normal MagicWB" "MagicWB2 - CoolNESs Logo" "MagicWB3 - NoBorder Icon" "New Icon")
  201.     (default #icon)
  202. ))
  203.  
  204. (if (= ScrOpt 0) (set coolicon "Normal"))
  205. (if (= ScrOpt 1) (set coolicon "SmalBench"))
  206. (if (= ScrOpt 2) (set coolicon "MagicWB1"))
  207. (if (= ScrOpt 3) (set coolicon "MagicWB2"))
  208. (if (= ScrOpt 4) (set coolicon "MagicWB3"))
  209. (if (= ScrOpt 5) (set coolicon "NewIcon"))
  210.  
  211. (complete 30)
  212. (copylib
  213.     (help @copylib-help)
  214.     (source "tabs.gadget")
  215.     (dest "SYS:Classes/Gadgets")
  216.     (Prompt #installing "tabs.gadget")
  217.     (confirm)
  218. )
  219.  
  220. ;***************************************************************************
  221. ;*** Copying files
  222. ;***************************************************************************
  223. (complete 40)
  224. (working #filecopy)
  225. (copyfiles
  226.     (source "CoolNESs")
  227.     (dest nesdest)
  228. )
  229. (complete 45)
  230. (copyfiles
  231.     (source "NewKeys.iff")
  232.     (dest nesdest)
  233. )
  234. (complete 50)
  235. (copyfiles
  236.     (source "gadgets.readme")
  237.     (dest nesdest)
  238. )
  239. (complete 55)
  240. (copyfiles
  241.     (source "Roms.info")
  242.     (dest nesdest)
  243. )
  244. (complete 60)
  245. (copyfiles
  246.     (source "Roms")
  247.     (dest ("%s/Roms" nesdest))
  248.     (all)
  249. )
  250.  
  251. ;***************************************************************************
  252. ;*** Copying Icons
  253. ;***************************************************************************
  254. (complete 65)
  255. (working #copyicons)
  256. (copyfiles
  257.     (source ("Icons/%s" coolicon))
  258.     (dest nesdest)
  259.     (all)
  260. )
  261. (complete 70)
  262. (copyfiles
  263.     (source ("Icons/%s.info" coolicon))
  264.     (dest dester)
  265.     (newname "CoolNESs.info")
  266. )
  267.  
  268. ;***************************************************************************
  269. ;*** Copying docs
  270. ;***************************************************************************
  271. (complete 80)
  272. (working #doccopy)
  273. (if (= (exists ("Docs/CoolNESs.Guide") (noreq)) 1)
  274.     (copyfiles
  275.     (source ("Docs/CoolNESs.Guide"))
  276.     (dest nesdest)
  277.    )
  278. )
  279. (if (= @language "svenska")
  280. (if (= (exists ("Docs/CoolNESs_Se.Guide") (noreq)) 1)
  281.     (copyfiles
  282.     (source ("Docs/CoolNESs_Se.Guide"))
  283.     (dest nesdest)
  284.     (newname "CoolNESs.Guide")
  285.    )
  286. ))
  287. (if (= @language "french")
  288. (if (= (exists ("Docs/CoolNESs_Fr.Guide") (noreq)) 1)
  289.     (copyfiles
  290.     (source ("Docs/CoolNESs_Fr.Guide"))
  291.     (dest nesdest)
  292.     (newname "CoolNESs.Guide")
  293.    )
  294. ))
  295. (if (= @language "norsk")
  296. (if (= (exists ("Docs/CoolNESs_No.Guide") (noreq)) 1)
  297.    ((copyfiles
  298.        (source ("Docs/CoolNESs_No.Guide"))
  299.        (dest nesdest)
  300.     )
  301.     (delete ("%s/CoolNESs.Guide" nesdest))
  302.     (rename ("%s/CoolNESs.Guide.info" nesdest) ("%s/CoolNESs_No.Guide.info" nesdest))
  303.    )
  304. ))
  305.  
  306. ;***************************************************************************
  307. ;*** Clean up Part
  308. ;***************************************************************************
  309. (complete 90)
  310. (working #cleanup)
  311.  
  312. (complete 100)
  313. (Exit)